1 GOTO910
2 REM ** ML STOP KEY DISABLE **
3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
5 [153]"hhhhhhh`1"
6 [143] ** 4 - POP ML SUBROUTINE **
10 [143] **GENERAL INPUT ROUTINE **
35 [143] +++ INPUT SECTION +++
40 [151]UO,0:UR$[178]"":UI$[178]""
42 [139]UL[178]0[167]UL[178]80
45 [151]UC,0
50 [161]UI$:[139]UI$[178]""[167]50
55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
60 [139]UI$[178][199](20)[167]105
62 [139] [195](UR$)[178][177]UL[167]50
65 [141]120:[143] CHECK FOR VALID CHARACTER
70 UR$[178]UR$[170]UI$
75 [153]UI$;
80 [137]50
85 [143] +++ CHECK FOR HELP REQUEST +++
90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
95 [139]UF[178]1[167][141]240
100 UF[178]0:[153]:[142]
102 [143] ++ CHECK DELETE ++
105 [139][195](UR$)[179]1[167]50
110 UR$[178][200](UR$,[195](UR$)[171]1)
115 [153]"CMD  CMDCMD";:[137]50
120 [143] ++ CHECK FOR VALID CHARACTERS ++
125 [139][195](US$)[178]0[167]150
127 US$[178]US$[170]UX$
130 [129]US[178]1[164][195](US$)
135 [139]UI$[178][202](US$,US,1)[167][142]
140 [130]
145 UI$[178]"":[142]
150 [143] ** STANDARD INPUT **
152 [139][198](UI$)[178]46[167][142]
155 [139]UI$[178][199](32)[167][142]
160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
165 [142]
170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
175 [142]
180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
187 [142]
190 UI$[178]"":[142]
195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
197 [141]250
200 [141]245
205 [129]UQ[178]UB[164]UB[170]880
210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
215 UZ[178]1:UV%[178][194](UT)
216 [137]300
217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
220 UT$[178]UL$:[151]53281,1:[153]"LOAD";:[151]53281,6:[151]UT,UV%:[129]UQ[178]UB[164]UB[170]880
225 [151]UQ,UQ%(UQ[171]UB):[130]
230 [151]U1,U1%
232 [151]U2,U2%
233 [151]U4,U4%
234 [151]U3,U3%[171]1
235 [139]ZZ[178]11[167]ZZ[178]0:TM[178]TM[170](TI[171]TT):[153]"";:[137]1270
237 [137] 35
240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
255 [142]
300 [143] ** MENU **
301 :
302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
303 :
305 [153]"                MENU"
310 [153]" --------------------------------------"
315 [153]"       1.   BEGIN SNOOPY"
320 [153]"       2.   STUDENT INSTRUCTIONS"
325 [153]"       3.   TEACHER INSTRUCTIONS"
335 [153]"       4.   QUIT"
340 [153]" --------------------------------------"
345 [153]"       PRESS A NUMBER KEY (1-4) ";
350 UL[178]1:US$[178]"1234":[141]35:[143] INPUT ROUTINE
355 [145][197](UR$)[141]1000,400,500,396
360 [137]300
395 [143] ** RE-ENABLE STOP KEY AND END **
396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
398 [153]"CONTLOAD":[128]
399 [141]875:[142]
400 [143] ** STUDENT INSTRUCTIONS **
405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
410 UH[178]1:UT$[178]" (null)NOOPY":UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST.":[141]850
412 [141]2440
485 [141]835
487 UG$[178]""
490 [139]UZ[178]1[167][158]UP%:[137]217
499 [142]
500 [143] ** TEACHER INSTRUCTIONS **
501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
502 UH[178]1:UT$[178]" (null)NOOPY":UP[178]0:UG$[178]"(null)EACHER RIGHT$NST.":[141]850
503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
505 [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
506 [153]"   PLEASE CONTACT:"
507 [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
508 [153]"          3370 (null)HARMACY ATNVE.
509 PRINT"          [193]GINCOURT, [207]NTARIO"
510 PRINT"          [195]ANADA   [205]1[215] 2[203]4"
511 PRINT"          (416) 499-4292"
512 UH=1:UP=1:GOSUB 835:GOSUB 850
513 PRINT"     [208]ROGRAM [206]AME: [211]NOOPY
514 [153]"     (null)RITTEN PEEKY  : LENREATIVE LENOMPUTING
515 PRINT"     [213]PGRADED [194]Y : [193]LBERT [204]EE
516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
517 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195][207][205][208][213][212][197][210]
518 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELEN(null)(null)(null)(null)(null)VAL(null)
519 PRINT"         8032 [195][194][205] [195][207][205][208][213][212][197][210]
520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
521 REM------------------------------
522 REM"     [213]PGRADED FOR [195]64 BY:
523 [143]"         (null)YNDA PEEKONANNO
524 REM------------------------------
525 GOSUB835:UH=1:GOSUB850
526 PRINT"  [212]HIS PROGRAM IS FOR GRADE 7 TO"
527 PRINT" GRADE 10 STUDENTS.  [212]HIS WILL HELP THE"
528 PRINT" STUDENTS TO BETTER UNDERSTAND LINE"
529 PRINT" GRAPHS AND THE ADDITION OF INTEGERS."
530 GOSUB835:UH=1:GOSUB850
535 PRINT"  [212]HERE ARE FIVE LEVELS OF DIFFICULTY."
540 PRINT" [212]HE LEVEL OF DIFFICULTY IS DETERMINED"
545 PRINT" BY THE LENGTH OF TIME GIVEN TO A"
550 PRINT" STUDENT TO ANSWER THE QUESTION."
555 PRINT"     1. [195][193][196][197][212]        -  [214][197][210][217] [197][193][211][217]"
560 PRINT"     2. [202][210]. [208][201][204][207][212]    -  [197][193][211][217]"
565 PRINT"     3. [208][201][204][207][212]        -  [205][207][196][197][210][193][212][197]"
567 PRINT"     4. [211][210]. [208][201][204][207][212]    -  [200][193][210][196]"
570 PRINT"     5. [193][195][197]          -  [214][197][210][217] [200][193][210][196]"
580 GOSUB835
587 UG$=""
590 IFUZ=1THENSYSUP%:GOTO217
599 RETURN
600 REM ** PROGRAM MODIFICATION INST **
699 RETURN
700 REM ** TO USE 8032 LOAD CBM4032 **
710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
730 [158]UU[170]71
740 [128]
797 [143] ** TO USE 8032 LOAD CBM4032 **
798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
799 [158]1093:[128]
800 [143] ** T I T L E   P A G E **
802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
803 [153] [199](142);
804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
812 [153]"STEP  WAIT
814 PRINT" [146]   [146][169]
816 [153]" WAIT  TAB((null)
818 PRINT"[223]  [146]
820 [153]"C O M M O D O R E
822 PRINT"EDUCATIONAL
824 [153]"SOFTWARE
826 REM ** COMMODORE LOGO **
827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
830 T1$="":T2$="":T3$="":T4$="":I=0
832 GOTO300
835 REM ** SPACE BAR PRESS **
840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
842 PRINT"                                  ";
844 GETUI$:IFUI$<>" "THEN844
846 RETURN
850 REM ** PAGE DESIGN ROUTINE **
852 UP=UP+1
855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
860 PRINT" --------------------------------------"
864 IFUH<>0THEN870
865 PRINTLEFT$(UD$,24)" HELP - PRESS   H <RETURN>"
870 UH=0:PRINT"":RETURN
875 REM ** PLEASE WAIT REMARK **
880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
885 RETURN
900 REM ** SET UP VARIABLES **
901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
905 UD$=""
906 UP$="                                       "
907 UT$=" SNOOPY
908 [142]
910 [143] ** SET VARIABLES **
915 [141]900
916 :
917 :
920 [143] ** CHECK FOR 8032 **
925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
930 [139][194](UB[170]40)[179][177]96[167][141]700
931 [143] ** MEMORY CHECK **
932 [139] [184](0)[177]2000[167]937
933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
934 [153]"MEMORY TO RUN THIS PROGRAM !"
935 [158]UU[170]71
936 [128]
937 [153]"LOAD":[139][194](50003)[178]0[167]962
940 [143] ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
943 [151]1104,145:[151]1105,234:[151]1082,234
945 [139][194](50003)[179][177]160[167]955
950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
955 [139][194](50003)[179][177]1[167]990
960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
965 [158]UU[170]48:[143] DISABLE STOP KEY
970 [141]800:[143] TITLE
980 [137]300:[143] MENU
990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE **
1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
1010 [140]
1020 [143] *** PET BASIC:  SNOOPY
1030 [143] ***  INTEGER NUMBERS PROGRAM
1040 [143] **"
1050 DEL$=""
1060 PO$=""
1070 I0=1
1080 L0=0:W0=0
1085 GOSUB 2640:PRINT"[147]":GOSUB 1090:GOTO 1130
1090 PRINT"    [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]"
1110 PRINT"   -5 -4 -3 -2 -1  0  1  2  3  4  5"
1120 RETURN
1130 PRINT"[145]";:GOSUB2270
1140 REM ** MAIN SECTION
1150 IFL0>4THEN2030
1160 IFW0>4THEN2070
1170 S=INT(RND(1)*11-5)
1180 R=INT(RND(1)*11-5)
1190 IFR=SORABS(R-S)=10THEN1180
1200 PRINT"";DEL$
1210 POKEUM+99+S*3,(S>R)*-60+(S<R)*-62
1220 POKEUM+99+R*3,87
1230 GETA$:IFA$<>""THEN1230
1240 TM=TI:H=1:PRINTPO$;DEL$;:PRINT" SHOT:  ";
1250 IFSK=960THEN1270
1260 IFTI-TM>=SKTHENPRINTDEL$;"TIME'S UP![145]":FORI=1TO2000:NEXT:GOTO1440
1270 GETA$:GOSUB3000:IFA$=""OR(A$<>"-"ANDA$<"1"ORA$>"9")THEN1250
1280 PRINTA$;:IFA$="-"THENH=-H:GOTO1250
1290 H=H*VAL(A$)
1300 IFABS(S+H)<=5THEN1330
1310 PRINTPO$;DEL$;H;"IS OUT OF RANGE.";
1320 FORI=1TO2000:NEXT:PRINTDEL$:GOTO1230
1330 REM ** MOVE SNOOPY
1340 FORJ1=1TO3:FORJ=627TO639:POKEUM+J,46:POKEUM+J-1,32:NEXT:POKEUM+639,32:NEXT
1350 FORJ=STOS+H-SGN(H)STEPSGN(H)
1360 S=S+SGN(H)
1370 IFJ=RGOTO1400
1380 POKEUM+99+J*3,32
1390 IFJ=R-SGN(H)THEN1410
1400 POKEUM+99+(J+SGN(H))*3,(S>R)*-60+(S<R)*-62+(S=R)*-87
1410 FORI=1TO200:NEXT
1420 NEXT
1430 IFS=RTHEN1760
1440 REM ** MISS
1450 L0=L0+1
1460 PRINT"":FORJ=1TO22:PRINT:NEXT:PRINTTAB(18)"** BLAM!! **":FORI=1TO200:NEXT
1470 RESTORE
1480 FORJ=1TOINT(RND(1)*5)+1:READM1:NEXT
1490 M2=INT(RND(1)*8):IFPEEK(UM+M1+M2)=209THEN1490
1500 FORJ=1TO3:POKEUM+M1+M2,81:GOSUB15000: FORI=1TO50:NEXT
1510 POKEUM+M1+M2,209
1520 FORI=1TO50:NEXTI,J
1530 FORI=1TO750:NEXT
1540 PRINTPO$;
1550 ONINT(RND(1)*5)+1GOSUB1600,1630,1660,1700,1730
1560 PRINT"";:FORJ=1TO24:PRINT:NEXT:PRINTDEL$
1570 FORI=1TO2000:NEXT
1580 PRINTPO$;:FORJ=1TO8:PRINT"                 ":NEXT
1590 GOTO1140
1600 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] RATS! GOT [221]":PRINT"[221] ME AGAIN! [221]":PRINT"[202][192][192][192][192][192][192][201][213][192][192][192][203]"
1610 PRINT"       [202][203]":PRINTTAB(9);"[215]  [215] [215]"
1620 RETURN
1630 PRINT"[213][192][192][192][192][192][192][192][192][201]":PRINT"[221]        [221]":PRINT"[221] @%$&*! [221]":PRINT"[221]        [221]":PRINT"[202][192][192][192][192][192][201][213][192][203]"
1640 PRINT"      [202][203]":PRINTTAB(10);"[215][215]"
1650 RETURN
1660 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]            [221]":PRINT"[221] CURSE YOU, [221]":PRINT"[221] RED BARON! [221]"
1670 PRINT"[221]            [221]":PRINT"[202][192][192][192][192][192][192][192][192][201][213][192][192][203]":PRINT"         [202][203]"
1680 PRINTTAB(12);"[215][215]"
1690 RETURN
1700 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221] HE HIT ME!?! [221]":PRINT"[202][192][192][192][192][192][192][192][192][201][213][192][192][192][192][203]"
1710 PRINT"         [202][203]":PRINTTAB(12);"[215][215]"
1720 RETURN
1730 PRINT"[213][192][192][192][192][192][201]":PRINT"[221]RATS![221]":PRINT"[202][192][192][192][201][213][203]":PRINT"    [202][203]"
1740 PRINTTAB(7);"[215][215][215]"
1750 RETURN
1760 REM ** HIT
1770 W0=W0+1
1780 FORJ=1TO3:GOSUB10000
1790 POKEUM+99+R*3,87
1800 FORI=1TO100:NEXT
1810 POKEUM+99+R*3,81
1820 FORI=1TO100:NEXT
1830 POKEUM+99+R*3,86
1840 FORI=1TO100:NEXT
1850 NEXT
1860 PRINTPO$;DEL$
1870 ONINT(RND(1)*3)+1GOSUB1920,1960,1990
1880 PRINTPO$;DEL$
1890 FORI=1TO2500:NEXT
1900 PRINTPO$;:FORJ=1TO8:PRINT"                   ":NEXT
1910 GOTO1140
1920 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":PRINT"[221]  HEH-HEH!    [221]":PRINT"[221] I'VE HIT HIM [221]"
1930 IFW0>1THENPRINT"[221]"W0"TIMES NOW!![221]":PRINT"[202][192][192][192][192][192][192][192][192][192][201][213][192][192][192][203]":PRINT"          [202][203]"
1935 IFW0<2THENPRINT"[221] ONCE NOW!!   [221]":PRINT"[202][192][192][192][192][192][192][192][192][192][201][213][192][192][192][203]":PRINT"
1940 [153][163]12);"(null)(null)"
1950 [142]
1960 [139]W0[177]1[167][153]"(null)TANTANTANTANTANTANTANTANTANRIGHT$":[153]"(null) THAT'S  (null)":[153]"(null)"W0"TIMES!(null)":[153]"MID$TANTANTANTANTANRIGHT$(null)TANTAN(null)"
1965 [139]W0[179]2[167][153]"(null)TANTANTANTANTANTANTANTANTANRIGHT$":[153]"(null) THAT'S  (null)":[153]"(null) ONCE!!  (null)":[153]"MID$TANTANTANTANTANRIGHT$(null)TANTAN(null)"
1970 [153]"      MID$(null)":[153][163]9);"(null)  (null)  (null)"                
1980 [142]
1990 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$":[153]"(null) HA! I'VE SHOT   (null)"
1992 [139]W0[177]1[167][153]"(null) YOU"W0"TIMES,    (null)"
1995 [139]W0[179]2[167][153]"(null) YOU ONCE,       (null)"
2000 [153]"(null) RED BARON!!     (null)":[153]"MID$TANTANTANTANTANTANTANTANTANTANTANRIGHT$(null)TANTANTANTAN(null)"
2010 [153]"            MID$(null)":[153][163]14);"(null) (null)"
2020 [142]
2030 [143] ** LOSE
2040 [153]PO$;"ON THE RED BARON SHOT YOU DOWN!"
2050 [139]W0[179][177]1[167][153]" YOU HIT HIM";W0;"TIMES."
2055 [139]W0[178]1[167][153]" YOU HIT HIM ONCE."
2060 [137]2390
2070 [143] ** WIN
2080 [129]J[178]1[164]5:[153][200](PO$,7);:[153][163]28)"** BOOM! **WAIT":[129]I[178]1[164]50:[130]
2090 [153][200](PO$,7);:[153][163]28)"** BOOM! **":[129]I[178]1[164]50:[130]I,J
2100 [153][200](PO$,8);:[129]J[178]1[164]15
2110 [153][163]35)"   ":[153][163]35)"(null)TANRIGHT$":[153][163]36)"V":[153][163]36)"(null)ONONON"
2120 [129]I[178]1[164]50:[130]I,J
2130 [153][163]35)"   ":[153][163]36)" ":[153][163]36)" ";:[141]20000
2140 [153][200](PO$,8);DEL$
2150 A$[178]"CADET  CMDCMDJR. PILOTPILOT  CMDCMDSR. PILOTACE"
2160 [153]PO$;"ON YOU SHOT DOWN THE RED BARON!"
2170 [139]SP[178]5[175]L0[178]0[167][153]" YOU HAVE BEEN HONORABLY RETIRED.":[137]2190
2180 [139]L0[178]0[167][153]" YOU ARE PROMOTED TO "[202](A$,(SP[170]1)[172]9[171]8,9)"."
2190 [153]" GREAT FLYING!":[137]2390
2200 [153]" HE HIT YOU"L0"TIMES."
2210 [139]L0[178]1[167][145][181]([187](1)[172]3)[170]1[141]2230,2240,2250       
2220 [137]2390
2230 [153]" NOT BAD.":[142]
2240 [153]" PRETTY GOOD.":[142]
2250 [153]" FAIRLY DECENT.":[142]
2260 [131]700,739,780,820,860
2270 [153]"";
2280 [153][163]17)"     (null)TANRIGHT$"
2290 [153][163]17)"CLOSECLOSECLOSE  STEPWAIT (null)TAN*"
2300 [153][163]17)"CLOSE (null)ASCTAN WAITRIGHT$=TAN(null)"
2310 [153][163]17)"CLOSE ASCSTR$STR$=(null)-(null) "
2320 [153][163]17)"CLOSE  CLOSEASC<CLOSEMID$TANRIGHT$"
2330 [153][163]17)"CLOSE STEPCLOSECLOSECLOSECLOSECLOSECLOSECLOSE (null)WAIT"
2340 [153][163]17)"CLOSESTEPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)WAIT"
2350 [153][163]17)"CLOSE  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT"
2360 [153][163]17)"CLOSE  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT"
2370 [153][163]17)"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT"
2380 [142]
2390 [153]" PLAY AGAIN? ";
2400 UL[178]1:US$[178]"YN":[141]35:A$[178]UR$:UR$[178]""
2410 [139]A$[178]"Y"[167][153]"LOAD":[137]1060
2420 [137] 300
2440 [143] ** INSTRUCTIONS
2450 I0[178]0
2460 [151]UT,UL%:[137]2500
2470 [153]"";[163]10);"O";[163]22);"<"
2480 [153]:[153]:[153][163]10);"^";[163]22);"^"
2490 [153][163]6);"(null)ED PEEKARON";[163]20);"(null)NOOPY":[142]
2500 [153]"    (null)OU ARE A (null)ORLD (null)AR RIGHT$ FLYING"
2510 [153]"  ACE, OUT TO GET THE (null)ED PEEKARON."
2520 [153]"    (null)O HIT HIM, ENTER THE POSITIVE"
2530 [153]"  OR NEGATIVE DISTANCE BETWEEN YOU"
2540 [153]"  AND THE (null)ED PEEKARON.  RIGHT$F YOU ENTER IT"
2550 [153]"  CORRECTLY, YOUR SHOT WILL HIT HIM."
2580 [153]"  RIGHT$F YOU HIT THE PEEKARON 5 TIMES, HE"
2590 [153]"  WILL CRASH."
2595 [141]835:UH[178]1:[141]850:[141]1090:[141]2470
2600 [153]"  (null)OU HAVE A LIMITED TIME, SO HURRY."
2610 [153]" RIGHT$N THE ABOVE EXAMPLE, YOU WOULD TYPE"
2611 [153]" -4 TO HIT HIM."
2612 [153]"  STR$O NOT PRESS RETURN AFTER ENTERING"
2614 [153]" THE ANSWER OR WHEN YOU'RE ASKING"
2615 [153]" FOR HELP.  (null)OU MAY PRESS H AT ANY"
2617 [153]" TIME FOR HELP.
2620 PRINT"               [199][207][207][196][160][204][213][195][203] ![146]":RETURN
2640 POKEUT,UL%
2650 PRINT"[147]         [197]NTER THE SKILL LEVEL"
2652 PRINT"              1[146]. [195]ADET"
2654 PRINT"              2[146]. [202]R. PILOT"
2656 PRINT"              3[146]. [208]ILOT"
2658 PRINT"              4[146]. [211]R. PILOT"
2660 PRINT"              5[146]. [193]CE"
2665 PRINT"";
2670 UL=1:US$="12345H":GOSUB35:A$=UR$:UR$=""
2680 SP=VAL(A$):SK=2^(5-SP)*60-(SP=5)*30
2690 PRINT"[147]":POKEUT,UU%
2700 X$=PO$:REM (KLUGE!
2710 RETURN
3000 IFA$="H"THENUR$=A$:ZZ=11:TT=TI:PRINT"";:GOTO85
3010 RETURN
10000 REM LASER FIRE ADAPTED FROM CURSOR
10010 REM BY J. DAVID
10020 REM WHCI
10030 POKE59467,16
10040 POKE59464,0
10050 POKE59466,15:FORL=1TO1
10060 FORV=0TO100STEP5
10070 POKE59464,V:FORX=1TO2:NEXT:NEXT
10080 POKE59464,V:X=TAN(X) :NEXT
10090 POKE59467,0:POKE59466,0:POKE59464,0
10100 RETURN
15000 REM DEATH RAY ADAPTED FROM
15010 REM 'CURSOR'
15020 REM BY J. DAVID
15030 REM WHCI
15040 P=59464
15050 POKE59467,16
15060 POKE59464,0
15070 POKE59466,15
15080 FORL=1TO40:POKEP,150:POKEP,200:POKEP,255:NEXT
15090 POKE59467,0:POKE59466,0:POKE59464,0
15100 RETURN
20000 REM CHARGE! ADAPTED FROM
20010 REM 'CURSOR'
20020 REM BY J. DAVID
20030 REM WHCI
20040 P=59464
20050 POKE59467,16
20060 POKE59464,0
20070 GOSUB20100
20080 POKE59467,0:POKE59466,0:POKE59464,0
20090 RETURN
20100 REM
20110 POKE59466,15:T=3
20120 POKEP,255:FORL=1TO100:NEXT:GOSUB20190
20130 POKEP,191:FORL=1TO100:NEXT:GOSUB20190
20140 POKEP,152:FORL=1TO100:NEXT:GOSUB20190
20150 POKEP,128:FORL=1TO200:NEXT:GOSUB20190
20160 POKEP,152:FORL=1TO100:NEXT:T=0:GOSUB20190
20170 POKEP,128:FORL=1TO400:NEXT
20180 RETURN
20190 POKE59464,0:FORL=1TOT:NEXT:RETURN